home *** CD-ROM | disk | FTP | other *** search
- object ClientForm: TClientForm
- Left = 192
- Top = 110
- Width = 318
- Height = 206
- Caption = 'Client Demo'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 16
- Width = 25
- Height = 13
- Caption = 'Host:'
- end
- object Label2: TLabel
- Left = 8
- Top = 56
- Width = 70
- Height = 13
- Caption = 'String to Send:'
- end
- object Label3: TLabel
- Left = 8
- Top = 136
- Width = 77
- Height = 13
- Caption = 'Returned String:'
- end
- object ResultLabel: TLabel
- Left = 96
- Top = 136
- Width = 3
- Height = 13
- end
- object SendButton: TButton
- Left = 46
- Top = 96
- Width = 75
- Height = 25
- Caption = 'Send'
- TabOrder = 2
- OnClick = SendButtonClick
- end
- object CancelButton: TButton
- Left = 190
- Top = 96
- Width = 75
- Height = 25
- Caption = 'Cancel'
- Enabled = False
- TabOrder = 3
- end
- object ServerEdit: TEdit
- Left = 96
- Top = 12
- Width = 201
- Height = 21
- TabOrder = 0
- Text = 'localhost'
- end
- object DataEdit: TEdit
- Left = 96
- Top = 52
- Width = 201
- Height = 21
- TabOrder = 1
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 160
- Width = 310
- Height = 19
- Panels = <>
- SimplePanel = True
- SizeGrip = False
- end
- object msClientSocket1: TmsClientSocket
- OnConnected = msClientSocket1Connected
- OnDisconnected = msClientSocket1Disconnected
- Port = 1080
- OnConnecting = msClientSocket1Connecting
- Left = 240
- Top = 128
- end
- end
-